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MTHSHTAN 3 H Floating Point Tangent routine 16-SEP-1984 01:40:5 AX/VMS Macro V04-00 p 1 
1-006 ° . . gr see15Be 94:38:28 FANART E eaecariatancmar:: P28 (1, 
TITLE MTHSHTAN § A riee tog Point Tangent routine 
IDENT /1-006/ : File: WTHHTAN. MAR EDIT: RNH1006 


PAARBARAAAAAAAASALALAALALALASAAAALALALAA SALA EEL ERE ARERR AAR REAR SERRE RRR RARE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL ty _GORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESER 


-® ® 
*® * 
:® ® 
*?® ® 
*® s 
s® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER © 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
if OTHER PERSON, NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 1S HERESY 
:® TRANSFERRED. : 
*® ? 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. © 
*® & 
:* * 
** ® 
*® ® 
:* * 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOOOoOoOCOoooOoOooooooo 


0000 i++ 
44 ; ABSTRACT: 
0000 ; ; MTHSHTAN is a function which returns the H floating point tangent 
B88 of its H floating point radian argument. The call is standard 

44 S tall-by-reference. It JSB to MTHSHTAN_R7. 

000 ; MTHSHTAND is a function which returns the H floating point tangent 
000 ; of its H floating point degree argument. The call is standard 

45 ; ; call-by-reference. It JSB to MTHSHTAND_R7. 

0 ‘oe 
000 ; 
990 ; VERSION: 1 


s wrereats 
John A. Wheeler, 15-Oct-1979: Version 1 


; ; MODIFIED BY: 


Oooo 
oooo 
oSooo 
COOCOCOOCOOooOoOoOoooO 
SUITES BS BB BE EEE EAI NII AIA IP POPONONININNINII 2 PO OO On ee 
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; RATATAT ALAATALAATAAAAAAAAAAARAARAAAAAAAAAARARARARARAAAAAAAAEAAAAEAAREAAEAAEE 
; FACILITY: MATH LIBRARY 


MTHSHTAN ; 4 
1-006 S 
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Detailed Current Edit History 


1 a ah 9 1:4 78 ee Macro V04-00 
“SEP=1984 11:25:4 MTHRTL.SRCJMTHHTAN.MAR; 1 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of MTHSHTAN 


1- - Ada ted rom MTHSGTAN version 1-001. oH 15- mig TY 

1- - cau HSSIGNAL with user PC ar Bi, r SBL ice -1979 
1- = Add dearee ¢ entry porns. oo MAR- 

1-004 =- Added MTHS -R7, and MTHSHTAND_ “RP Hal ar sue-st 

1-005 - panes shared: éxternal references to G* RNH 25-Sep-81 

1-006 = Change remaining external references to G*. RNH 06-Oct-81 


-_-_-——_ 
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MTHSHTAN : H Floating Point Tangent routine “SEP-1984 01:40:56 VAX/VMS Macro V04-00 Page mT 
1-006 BECLARATIONS 3 Seclaret ive Part of Modul mies 94:59:28 ERTHRIL. SRE IMTMHTAN MAR: 1 . ) Ta 
ef -SBTTL DECLARATIONS 3; Declarative Part of Module 
5 ; INCLUDE FILES: none 
1 : EXTERNAL SYMBOLS: 
i -DSABL GBL : Prevent undefineds from becoming 
74 .EXTRN MTHSHSIN_RS : H Floating sine routine (radians) 
0 75 eEXTRN MTHSHCOS_R5 3; H Floating cosine routine (radians) 
6 -EXTRN MTHSHSINCOS_R7_ ; H Floating sine and cosine routine (radians) 
7 »EXTRN ITHSUSINCOSD_R7 3 H Floating sine and cosine routine (degrees) 
8 -EXTRN MTHSSSIGNAL 3; Math error signal routine 
000 7 -EXTRN MTHSSSIGNAL_CON ; Handler that just returns 
$8 HY -EXTRN MTHSK_FLOOVEMAT ; Error code 
0 1 eEXTRN MTHSK_FLOUNDMAT ; Error code 
00 HY -EXTRN MTHSSJACKET_TST ; 
000 -EXTRN MTHSHSIND_RS ; H Floating sine routine (degrees) 
4 Be eEXTRN MTHSHCOSD_RS 3 H Floating cosine routine (degrees) 
00 H 
0900 5? 3; EQUATED SYMBOLS: none 
9000 89 ; MACROS: 
000 90 SSFDEF 3; Define SF (Stack Frame) symbols 
$333 
900 $8 > PSECT DECLARATIONS: 
00000000 95 -PSECT _MTHSCODE PIC,SHR,LONG, EXE ,NOWRT 
it 3 ; Program section for math routines 
900 98 : OWN STORAGE: none 
00 190 : CONSTANTS: 
00000004 0 101 HTAN = 3; Position of output parameter from AP 
00000004 0000 196 HTAND = 4 : Position of output parameter from AP 
00000008 4 194 x=8 3; Position of input parameter from AP 
00 105 H_SMALLEST_DEG: 
3C1FC1A6 CASDO0006 op 196 a LONG  “XCA5D0006, *X3C1FC1A6 3 180/pit2**-16384 
BIASAGFE 152E7B86 Boe 1p -LONG “*X152E7B86, “X81A5A6FE 
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-SBTTL MTHSHTAN = Standard H Floating HTAN 


MTHSHTAN : 
1-006 MTHS 


"FUNCTIONAL DESCRIPTION: 

; HTAN =H floating point tangent function 
For algorithm, see MTHSHTAN_R7 

; CALLING SEQUENCE: 

CALL MTHSHTANCHTAN.Wwh.r, X.rh.r) 


: INPUT PARAMETERS: 
; IMPLICIT INPUTS: none 
; OUTPUT PARAMETERS: 


VALUE: H floating tangent of the argument. 
Output parameter is the first parameter from the left. 


: IMPLICIT OUTPUTS: none 
; COMPLETION CODES: none 
0 ; SIDE EFFECTS: 
NONE 


: X rhe Address of value of angle in radians. 


40FC -ENTRY MTHSHTAN, “M<IV, R2, R3, R4, RS, R6, R7> 


> a St 8 3 td 5 ss a 2 — 9 2d a ss ts 2 ts — 9 — 2s — 2 2s sn — bs 2b > __b ss 2d — 3 2 
UNE BREESE SWWWWWWINIWIWIIRPONOPONONINNN 2 
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00 3: Standard call-by-reference entry 
00 3; Disable DV (and FU), enable IV 
+ MTHSFLAG_JACKET ; Flag that this is a jacket procedure in 
6D 00000000'GF 9E MOVAB G*MTHSSJACKET_HND, (FP) 
3 set handler address to jacket 
0 4 : handler 
6 9 136 3 case_of an error in special routine 
50 08 BC 70FD 9 15 MOVH @aXx(AP), RO ; RO/R3 = argument 
98 10 00 154 BSBB MTHSHTAN_R7 3; Call special HTAN routine 
04 BC 50 7DFD 85 155 MOVO RO, @HTARCAP) ; Store result in second argument 
04 00 156 RET ; Return to caller 


MTHSHTAN : H 
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00000000 ' GF 
47 


16 
5 4 
9 1 
50 4 66FD 
05 
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-SBTTL MTHSHTAN_R7 = JSB entry point 


p++ 
; FUNCTIONAL DESCRIPTION: 
HTAN = JSB entry point 
Algorithmic errs: 
le compute HSIN and HCOS. 
- If HCOS is zero, we have an error. 
. Return HSIN / HCOS. 
CALLING SEQUENCE: 
MOVH arquaent.. RO 
JSB MTHSHTAN_R7 
INPUT PARAMETERS: 
RO / R3 contains x 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
The result is the H-floating tangent of x. 


IMPLICIT OUTPUTS: 


—_ w _ co wm = Ww co 


MEWS ODNAUES WN S(O OONAUE WIN SO OONAULS WN QOOONAUs ‘©-ooo 
ee 


Pe Se Ge Ge Se Se Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Sse Ge Se Se Sse Sete Ge 


NONE 
SIDE EFFECTS: 

NONE 

MTHSHTAN_R7:: 
JSB G*MTHSHSINCOS_R7 3 Compute HSIN, and HCOS of X 
TSTH RG 3; Is HCOS zero ? 
BEQL 30$ : If zero, HTAN is infinite 
DIVH2 R4, RO 3; Compute HSIN / HCOS 
RSB ; Return to caller 


t HCOS is zero, so HTAN is infinite. Go to common error code. 
S0s: 


POPPIN IMONY <2 at wt at at a rt ar rt a nk td at ts at a tt tt 
SOOOSOOOO000 OOOO 00900 69 05 6909096909 09 SII NI NINN NINN NOAA AAAAAOOAOOUIN 


BRW COSZER 
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-SBTTL MTHSHTAN_RS = JSB entry point 


$44 

; FUNCTIONAL DESCRIPTION: 

; HTAN = JSB entry point 

Algorithmic pirat: 

Re Fompute HSIN and HCOS. 
- If HCOS is zero, we have an error. 

; 3. Return HSIN / HOS. 

; CALLING SEQUENCE: 


MOVH argument, RO 
JSB MTHSHTAN_RS 


INPUT PARAMETERS: 

3 RO / R3 contains x 

: IMPLICIT INPUTS: 

; NONE 

; OUTPUT PARAMETERS: 

; The result is the H-floating tangent of x. 
; IMPLICIT OUTPUTS: 

M 


AAAI AITO ES BS BS BS BS BS EE BWANA WII OPOPONONONNONONN) 2 2 SS SS SS OOO 


NONE 
SIDE EFFECTS: 
NONE 
THSHTAN_RS:: 
ROVH RO, -(SP) 3 Save argument 
JSB MTHSHCOS_R5 ; Compute HCOS 
MOVH 88 =(SPY 3 Save HCOS 
BEQL 208 : If zero, HTAN is infinite 
mMOVO 16(SP), RO ; Get argument back 
JSB FR INSHS INAS ; Compute HSIN 
DIVH (SP)+, R 3; Compute HSIN / HCOS 
ADDL #i6, SP ; Discard saved argument 
y RSB ; Return to caller 
: Come here if HCOS is zero. This means that HTAN is infinite. 
20S: 
COSZER ; Go to common error code 


SOD NA NL WR 9 ODNAUNE WIN @ OO ODNAUE WIN @ OOONAOUE WN OOONOUSWH—O0OnN | 


o 


~ Se #32, SP ; Discard saved HCOS and saved argument 
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40FC 


00000000 ' GF 


9 


=n 
—— 


SOoOSCSSOOSOSOSOSOSOOSOSOSOSOSOSOOSOSOOSOOOOOOOOOOOOOOO 


SOOoOooooooooo 


ro 
zo 


SOOCOCCOoOCOoOoooCCoooooooooooooo 
PPAR AAARA AAA AA AAA AAAA AAA A AO 


FRPP IPNINININININPINONPINIPYNIPUNIPINIPYPIPIPIPIPINPIPIPPIPUPINPUNPINNIPNPY 


PAAR AAAASAA AO 


or 


068 


B 13 
int Tangent routine 4 SEP- :5 AX/VMS M 4- MT 
andard A Floating HTAND  6-SEP- 1984 133 28 t vo400 Page 7? 


MTMRTL. SRCIMTHHTAN, MAR; 1 (7) a 
-SBTTL MTHSHTAND = Standard H Floating HTAND 


ee 
FUNCTIONAL DESCRIPTION: 


HTAND = H floating point tangent function 
For algorithm, see MTHSHTAND_R7 
CALLING SEQUENCE: 
CALL MTHSHTAND(HTAND.wh.r, X.rh.r) 


INPUT PARAMETERS: 

X.rhoe address of value of angle in degrees. 
IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 

VALUE: H floating tangent of the argument. 

Output parameter is the first argument from the left. 

IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
SIDE EFFECTS: 

NONE 


-ENTRY MTHSHTAND, “M<IV, R2, R3, R4, RS, R6, R7> 

Standard call-by-reference entry 
Disable DV (and FU), enable IV 

Flag that this is a jacket procedure in 


MTHSFLAG_JACKET 
MOVAB G*MTHSSJACKET_HND, (FP) 


set handler address to jacket 
handler 


case of an ee in special routine 
RO/R3 = argumen 

Call spec iat NT AND routine 

Store result in second argument 
Return to caller 


MOVH ax 
BSBB SE MSATANG. R7 
novo RO, @HTAND(AP) 
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~SBTTL MTHSHTAND_R7 = JSB entry point 


@ee 


+ 

FUNCTIONAL DESCRIPTION: 

HTAND = JSB entry point 

Te hake su o thes the absolut l f th i h 

ake sure e absolute value o e argument is greater than 

180/pit ure that t to avoid underflow in HSIN” ° 

‘ Compute NS HSIND and HCOSD. 

" is ogre we hen an error. 

4. Return HSIND / HCOSD 

CALLING SEQUENCE: 


MOVH argument, RO 
JSB MTHSHTAND_R7 


INPUT PARAMETERS: 
RO / R3 contains x 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
The result is the H-floating tangent of x. 
IMPLICIT OUTPUTS: 


NONE 
SIDE EFFECTS: 

NONE 

MTHSHTAND_R7:: 
MOVH RO, -(SP) ; Save argument 
BICW #*x8000, (SP) 3; (SP) = Targumen 
CMPW #7, (SPS ; Compare ‘ARG: oyth 2*8-16377 
BLEQ : No possible underflow compute HTAND. 
CMPH H_SMALLEST_DEG, (SP) 3 Possible underflow, use better check 
BLEQ 20$ ; No underflow. 
TSTH (SP) : If _targi = 0, no underflow, otherwise 
BNEQ UNFL ; HSIND will under f Low 
ADDL #16, SP ; Remove argument from the stack 
CLRH RO ; Zero the result 

208 RSB ; Return with value = 0 
ADDL2 #16, SP 3 Discard saved argument 
JSB G*MTHSHSINCOSD_R7 Compute COSD 
TSTH ; Is HCO&D zero 


If zero, HTAND is infinite 
Compute HSIND / HCOSD 


BEQL COSZER 
DIVH2 R4, RO 
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05 BeAc 396 RSB ; Return to caller 
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~ $8 -SBTTL MTHSHTAND_RS = JSB entry point 
AD 71 3+ 
. te 3 FUNCTIONAL DESCRIPTION: 
AD 374 : HTAND = JSB entry point 
OAD 75; . 
OAD £6 3 sc gt ag ee 
OAD “7 3 make sure hay the absolute value of the A wm is greater than 
OOAD 78 ; 1BO/pitoeeste 84 to svete underflow in HSIN 
OOAD 79 ; - Compute HSIND and HCO 
8 AD 80 ; - If HCOSD is sere we itt an error. 
AD 381; 4. Return HSIND / HCOSD. 
OQOAD 8 3 
QOAD : 3; CALLING SEQUENCE: 
OOAD 4; 
QOAD 85 ; MOVH argument, RO 
QOAD 6 r JSB MTASHTAND uR5 
QOAD 87 ; 
QOAD 88 ; INPUT PARAMETERS: 
QOAD 89 ; h 
OOAD 90 ; RO / R3 contains x 
OOAD 91; 
QOAD 38 3; IMPLICIT INPUTS: 
OOAD 93; 
QOAD 94 ; NONE 
QOAD 95 ; 
OQOAD 96 ; OUTPUT PARAMETERS: 
OOAD 97 ; 
OOAD 98 ; The result is the H-floating tangent of x. 
OOAD 99 ; 
QOAD 400 ; IMPLICIT OUTPUTS: 
QOAD 401; 
OOAD a06 3 NONE 
O0OAD 8403 ; 
QOAD 404 ; SIDE EFFECTS: 
QOAD 405; 
QOAD 406 : NONE 
OOAD 407 
OAD 408 ATHSHTAND_RS:: 
7E 50 70FD QOAD 409 MOVH RO, -(SP) ; Save_argument 
50 8000 8F AA 00B1 410 BIcd #*x8000, RO : RO/R3 = jerqument 
50 07 B1 00B6 411 CMPW #7, RO ; Compare ‘AR “7th 2*2-16377 
11 _ 15 0089 216 BLEQ 20 : No possible underflow compute HTAND. 
50 FF4O CF 71FD OOBB 41 CMPH H_SMALLEST_DEG, RO : Possible underflow, use better check 
09 15 O0C1 414 BLEQ 20$ 3 No ynder toy. 
50 73FD O00C3 415 TSTH R : arg: = 0, no underflow, otherwise 
29.C1 0C6 218 BNEQ UNFL 3 HSIND gitt underflow 
5E 10 f oc8 41 ADDL #16, SP ; Remove argument from the stack 
? $18 208 RSB : Return with value = 0 
soengeee"tr 16 CC 420 JSB MTHSHCOSD _R5 ; Compute HCOSD 
7€ g 70F8 D2 421 MOVH RO (SP) : Save HC 
13,1 06 4 : BEQL 30$ : If zero, HTAND is infinite 
10 AE 7DFD D 4 MOVO 16(SP), RO ; Get argument back 
00000000 ° GF 16 43 424 JSB PL bat | ; Compute HSIND 
50 8E 66FD E 425 DIVH2 (SP)+, R 3; Compute HSIND / HCOSD | 
| 


: F 
-006 ATHSHTAND_R SEP=1984 11: MTHRTL.SRCJMTHHTAN.MAR; 1 
ADDL2 #16, SP ; Discard saved argument 
RSB ; Return to caiier 


z¢ 
3; Come here if HCOSD is zero. This means that HTAND is infinite. 


S0s: ADDL2 #32, SP ; Discard saved HCOSD and saved argument 
BRW COSZER ; Go to common error code 


JSB entry point 
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1-006 ATHSHTAND_RS - JSB entry point or SEe a1 9Be $4358: 23 ERTMRTL. SR SRCIMTHHTAN. MAR; 1 9 16) 
F. 486435; 
Fi 4 § ; COMMON ERROR CODE 
Fl 4646357 3 
FL 038 
ort rr 3; Underflow; if user has FU set, signal error. Always return 0.0 
Fi 442 UNFL: 
eS 0 Fi 108 ADDL #16, SP 3; Remove argument from stack 
3 oc Bore 444 MOVPSL 3 ; = user's or jacket routine’s PSL 
00000000 ' GF ? FB OOF6 445 CALLS #0, G*MTHSSJACKET_TST ; RO = TRUE if JSB from jacket routine 
o 0 5? Bore 28 BLBC 3; branch if user ote (s.. 
52. 046 AD 3C 0100 44 MOVZWL SFS$W_SAVE_PSW(FP), R2  : get user PSL save by CA 
50 D4 He 448 10$: CLRL RO ; RO = reoult, Siassie AL mit save in 
106 449 3 CHFSL RO/R1 so any handler gen fixup 
0D 52 06 =€1 0106 450 BBC #6, R2, 20$ ; has ie Menabled Sleesing under f Low? 
6— DD O10A 451 PUSHL (SP) 3 yes, return PC from special routine 
7E OO°8F 9A B195 136 MOVZBL #MTHSK_FLOUNDMAT, -(SP) ; trap code for hardware floa under f Low 
011 45 3 convert to MTH$_FLOUNDMAT ( in it VAX=-11 
0110 454 : except ten code)” 
00000000'GF 02 FB 0110 455 CALLS #2, G*MTHSSSIGNAL ; atonal (condition, PC) 
05 Bite +28 208: RSB 3 urn 
0118 458 : Come here if the tangent is infinite because COS is zero. 
0118 459 : Give an error signal. 
orig teh éoszer 
6— ODD 0118 +86 PUSHL (SP) ; Push user ‘‘call** PC 
7E OO°SF QA OITA 46 MOVZBL #MTHSK_FLOOVEMAT, -(SP) ; Condition value 
50 01 F 3 oIis ret) —_ #15, ~ RO ; RO/R3 = reserved operand 
00000000 * GF 8 F 4 4 £06 CALLS #2, G*MTHSSSIGNAL 3; Signal an error 
0 12B 646 RSB ; Return to caller 
4 C 468 
12C 36 469 - END 


——— 722 ee 


MTHSHTAN 
Symbol table 


COSZER 
HTAN 


HTAND 

H_SMALLEST_DEG 
MTHSSJACKET_HND 

MTHSSJACKET_TST 
HSS L 


H$H 5 
MTHSHSINCOSD_R7 
mail 


MTHSK_FLOUNDMAT 
A SAVE_PSw 


There were 


ee 


gererene 
geereeee 
gereeenee 
eeeeeeee 
greeereeee 
geeeeree 
rererere 
getereee 
gererenre 
gereaeree 


rererenre 
grerrere 


source Lines were read in Pass 1, 
pages of virtual memory were used to define 


3; H Floa 


02 


SOoQoooooooooooooocooo 
SOOMMMNMMNMNOOCOCOCCCCOCONnr 


10 pages of symbol table space al jocated t 


producin 


H 13 
ting Point Tangent routine 


00000004 
QOOOO0F1 R 02 
= 00000008 
two meme em ea ma + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
Ss 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON’ ABS 
$ 00000000 0.) O1¢ 1.) NOPIC USR CON’ ABS 
MTHSCODE 0000012C ¢« 300.) 02 ¢ 2.) PIC USR CON” REL 
Semanmmninmenemntininnl 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Jnitiot tzetton ; 180 09:09: 0:58 8:00: 70 at 
omma rocessin :00:00. 
Pass 4 ° 138 8: 8: ’: 8; 80; 0:08:16 16 
Symbol table sort 0 Bs :00.03 3: : -94 
Pass 2 a :00:01.09 4. : 
Symbol table output 0:00:00.04 8: t 8 
Psect synopsis output 5 :00:00. 0 
Cross-reference output :00:00. 0: : 200. 0 
Assembler run totals 37 :00:03. :00:15.4 
The worki t Limit was 1050 pages. 
8458 bytes (17 pages) of virtust eaory were used to buffer ode 


he intermediate 
hold 53 non-local and 
16 object records in Pass 2 
macros. 


16-SEP-1984 01:40:5 AX/VMS Macro V04-00 
aes 94:58:28 YRTHRTL SREIMTHHTAN. MAR; 1 


Page 


LCL oe oe NOEXE NORD — NOVEC BYTE 
LCL NOSHR EXE RD T NOVEC BYTE 
LCL SHR EXE RD NOURT NOVEC LONG 


local symbols. 


I 13 
MTHSHTAN ; H Floating Point Tangent routi 16-SEP-19 
se iigiccrsepndgin: Sn sia green oRe $1: 


:5 AX/VMS Macro V04-00 Page 14 
VAX=11 Macro Run Statistics g: § tnt . 


74 MTHRTL. SR JRTHHTAN.MAR; 1 (10) 


roe 


tween cece Cena rae nnearaec aaa + 


H Macro Library statistics H 
Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB; 2 4 
88 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ION/D1ISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHHTAN/OBJ=OBJ$:MTHHTAN MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRCS: 


EQUIPMENT CORPORATION 


AH-BT13A-SE L 
ENTIAL AND PROPRIETARY 
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